home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / SAT 2.3.8 / Demos / SAT Invaders demo ƒ / gameGlobals.p < prev    next >
Text File  |  1995-09-13  |  906b  |  44 lines
  1. {=================================================}
  2. {========= GameGlobals, globals for SATInvaders ==========}
  3. {=================================================}
  4.  
  5. { Example file for Ingemars Sprite Animation Toolkit. }
  6. { © Ingemar Ragnemalm 1992 }
  7. { See doc files for legal terms for using this code. }
  8.  
  9. { This file defines the resource numbers and global variables for SATInvaders.}
  10.  
  11. unit GameGlobals;
  12.  
  13. interface
  14. {$IFC UNDEFINED THINK_PASCAL}
  15.     uses
  16.         Types, QuickDraw, Menus;
  17. {$ENDC}
  18.  
  19.     const
  20. {    Resource numbers}
  21.  
  22.         fileMenuRes = 1004;        { Race menu }
  23.         aboutAlrt = 1000;        { About box }
  24.         gameWindRes = 262;        { game window }
  25.  
  26. { File menu }
  27.         run = 1;
  28.         sound = 3;
  29.         fastAnimation = 4;
  30.         starField = 5;
  31.         quit = 7;
  32.  
  33.     var
  34. {    Menu handles.  There isn't any apple menu here, since TransSkel will}
  35. {    be told to handle it itself.}
  36.  
  37.         fileMenu: MenuHandle;
  38.  
  39. {Level number.}
  40.         level: longint;
  41.  
  42. implementation
  43.  
  44. end.